home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 December / DPPCPRO1205.ISO / Essentials / Programming / Basic4GL / Setup Basic4GL v2.3.1.exe / $INSTDIR / Programs / nehe2.gb < prev    next >
Encoding:
Text File  |  2005-07-29  |  800 b   |  17 lines
  1.     glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)    ' Clear The Screen And The Depth Buffer
  2.     glLoadIdentity()                            ' Reset The View
  3.     glTranslatef(-1.5,0.0,-6.0)                    ' Move Left 1.5 Units And Into The Screen 6.0
  4.     glBegin(GL_TRIANGLES)                            ' Drawing Using Triangles
  5.         glVertex3f( 0.0, 1.0, 0.0)                    ' Top
  6.         glVertex3f(-1.0,-1.0, 0.0)                    ' Bottom Left
  7.         glVertex3f( 1.0,-1.0, 0.0)                    ' Bottom Right
  8.     glEnd()                                    ' Finished Drawing The Triangle
  9.     glTranslatef(3.0,0.0,0.0)                        ' Move Right 3 Units
  10.     glBegin(GL_QUADS)                            ' Draw A Quad
  11.         glVertex3f(-1.0, 1.0, 0.0)                    ' Top Left
  12.         glVertex3f( 1.0, 1.0, 0.0)                    ' Top Right
  13.         glVertex3f( 1.0,-1.0, 0.0)                    ' Bottom Right
  14.         glVertex3f(-1.0,-1.0, 0.0)                    ' Bottom Left
  15.     glEnd()                                    ' Done Drawing The Quad
  16.     SwapBuffers ()
  17.